home *** CD-ROM | disk | FTP | other *** search
/ PCMania 73 / PCMania CD73_1.iso / pcmania / vbasic73 / MAPA.FRM < prev    next >
Text File  |  1998-09-28  |  5KB  |  164 lines
  1. VERSION 5.00
  2. Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
  3. Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.0#0"; "COMCT232.OCX"
  4. Begin VB.Form Mapa 
  5.    Caption         =   "Mapa"
  6.    ClientHeight    =   2355
  7.    ClientLeft      =   5295
  8.    ClientTop       =   2940
  9.    ClientWidth     =   5760
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2355
  12.    ScaleWidth      =   5760
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "Restaurar"
  15.       Height          =   375
  16.       Left            =   4080
  17.       TabIndex        =   8
  18.       Top             =   600
  19.       Width           =   1335
  20.    End
  21.    Begin ComCtl2.UpDown UpDown2 
  22.       Height          =   375
  23.       Left            =   3600
  24.       TabIndex        =   7
  25.       Top             =   1320
  26.       Width           =   240
  27.       _ExtentX        =   423
  28.       _ExtentY        =   661
  29.       _Version        =   327680
  30.       AutoBuddy       =   -1  'True
  31.       BuddyControl    =   "Text2"
  32.       BuddyDispid     =   196612
  33.       OrigLeft        =   3720
  34.       OrigTop         =   1320
  35.       OrigRight       =   3960
  36.       OrigBottom      =   1695
  37.       Increment       =   10
  38.       Max             =   228
  39.       SyncBuddy       =   -1  'True
  40.       BuddyProperty   =   0
  41.       Enabled         =   -1  'True
  42.    End
  43.    Begin VB.TextBox Text2 
  44.       Height          =   375
  45.       Left            =   3240
  46.       TabIndex        =   6
  47.       Text            =   "0"
  48.       Top             =   1320
  49.       Width           =   375
  50.    End
  51.    Begin VB.TextBox Text1 
  52.       Height          =   375
  53.       Left            =   3240
  54.       TabIndex        =   5
  55.       Text            =   "0"
  56.       Top             =   600
  57.       Width           =   375
  58.    End
  59.    Begin ComCtl2.UpDown UpDown1 
  60.       Height          =   375
  61.       Left            =   3616
  62.       TabIndex        =   4
  63.       Top             =   600
  64.       Width           =   240
  65.       _ExtentX        =   423
  66.       _ExtentY        =   661
  67.       _Version        =   327680
  68.       BuddyControl    =   "Text1"
  69.       BuddyDispid     =   196617
  70.       OrigLeft        =   3840
  71.       OrigTop         =   600
  72.       OrigRight       =   4080
  73.       OrigBottom      =   975
  74.       Increment       =   10
  75.       Max             =   318
  76.       SyncBuddy       =   -1  'True
  77.       BuddyProperty   =   0
  78.       Enabled         =   -1  'True
  79.    End
  80.    Begin VB.CommandButton Command2 
  81.       Caption         =   "Peonzas"
  82.       Height          =   375
  83.       Left            =   4080
  84.       TabIndex        =   3
  85.       Top             =   1320
  86.       Width           =   1335
  87.    End
  88.    Begin VB.PictureBox Picture1 
  89.       Height          =   1575
  90.       Left            =   240
  91.       ScaleHeight     =   101
  92.       ScaleMode       =   3  'Pφxel
  93.       ScaleWidth      =   101
  94.       TabIndex        =   0
  95.       Top             =   360
  96.       Width           =   1575
  97.    End
  98.    Begin PicClip.PictureClip PictureClip1 
  99.       Left            =   240
  100.       Top             =   2160
  101.       _ExtentX        =   11060
  102.       _ExtentY        =   8678
  103.       _Version        =   327680
  104.       Picture         =   "Mapa.frx":0000
  105.    End
  106.    Begin VB.Label Label2 
  107.       Alignment       =   2  'Center
  108.       Caption         =   "Establezca el valor de Y"
  109.       Height          =   375
  110.       Left            =   2040
  111.       TabIndex        =   2
  112.       Top             =   1320
  113.       Width           =   1095
  114.    End
  115.    Begin VB.Label Label1 
  116.       Alignment       =   2  'Center
  117.       Caption         =   "Establezca el valor de X"
  118.       Height          =   375
  119.       Left            =   2040
  120.       TabIndex        =   1
  121.       Top             =   600
  122.       Width           =   1095
  123.    End
  124. End
  125. Attribute VB_Name = "Mapa"
  126. Attribute VB_GlobalNameSpace = False
  127. Attribute VB_Creatable = False
  128. Attribute VB_PredeclaredId = True
  129. Attribute VB_Exposed = False
  130. Private Sub Command1_Click()
  131. 'Vuelve a la esquina superior izquierda
  132. Text1.Text = 0
  133. Text2.Text = 0
  134. PictureClip1.ClipX = Text1.Text
  135. PictureClip1.ClipY = Text2.Text
  136. Picture1.Picture = PictureClip1.Clip
  137. End Sub
  138.  
  139. Private Sub Command2_Click()
  140. Unload Mapa
  141. End Sub
  142.  
  143. Private Sub Form_Load()
  144. Mapa.Left = Peonzas.Left + 400
  145. Mapa.Top = Peonzas.Top + 400
  146. PictureClip1.ClipX = 1
  147. PictureClip1.ClipY = 1
  148. PictureClip1.ClipWidth = 100
  149. PictureClip1.ClipHeight = 100
  150. Picture1.Picture = PictureClip1.Clip
  151. End Sub
  152.  
  153. Private Sub UpDown1_Change()
  154. 'Controla el desplazamiento horizontal
  155. PictureClip1.ClipX = Text1.Text
  156. Picture1.Picture = PictureClip1.Clip
  157. End Sub
  158. Private Sub UpDown2_Change()
  159. 'Controla el desplazamiento vertical
  160. PictureClip1.ClipY = Text2.Text
  161. Picture1.Picture = PictureClip1.Clip
  162. End Sub
  163.  
  164.